<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in</name>
<id>-1</id>
<cardCount>18</cardCount>
<cardID>7916</cardID>
<listID>2274</listID>
<cantModify><false /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>640</width>
<height>400</height>
</cardSize>
<script>on cHCinstall-- Check for correct environmentset cursor to busy--if checkEnviron() is not "OK" thengo HomegetHomeInfoexit to HyperCardend ifset cursor to busy--repeat until the lockScreen is falseunlock screenend repeat--end cHCinstallfunction checkEnviron-- The heapspace requirements may vary depending on your stackput MaxDepth() into TheDepthif TheDepth < 4 then errBitDepthif (TheDepth = 1) ¬and (the heapSpace < 2600) then errMemory TheDepth,"1100K"else if (TheDepth = 2) ¬and (the heapSpace < 117200) then errMemory TheDepth,"1200K"else if (TheDepth = 4) ¬and (the heapSpace < 205000) then errMemory TheDepth,"1250K"else if (TheDepth = 8) ¬and (the heapSpace < 384000) then errMemory TheDepth,"1300K"else if (TheDepth = 16) ¬and (the heapSpace < 721000) then errMemory TheDepth,"2400K"else if (TheDepth ≥ 24) ¬and (the heapSpace < 1421000) then errMemory TheDepth,"3000K"else if stackActivate() is not empty thenerrColorreturn "OK"else return "OK"end checkEnvironon errMemory TheDepth,PartitionSize-- The PartitionSize required may vary depending on your stackput lastItem(":",the long name of HyperCard) into TheHyperCardanswer "Not enough memory to run" && "“" & short name of this stack & "”" ¬&& "in" && TheDepth & "bit mode. The current memory size of" && ¬TheHyperCard && "should be at least" && PartitionSize & "."end errMemoryfunction lastItem TheDelimiter,String-- given the delimiter <TheDelimiter>, return the portion of <String> that-- follows the LAST occurance of <TheDelimiter>if TheDelimiter is in Stringthen put lastItem(TheDelimiter,char offset(TheDelimiter,String) + 1 to length(String) of String) into Stringreturn Stringend lastItemon errBitDepthanswer "This stack requires a color system set to at least 16 colors" && ¬"(4 bit-depth) to display color." --∆end errBitDepthon colorizeHCglobal gOKToColorizeif (gOKToColorize is empty) then pass colorizeHCend colorizeHCfunction stackActivateglobal gOKToColorize--put empty into gOKToColorize--colorizeHC "assignToFront"if the result is not empty thenput the result into gOKToColorizereturn gOKToColorizeend ifend stackActivateon errColorglobal gOKToColorizeanswer "Warning: The environment this stack is currently running in is not" && ¬"able to support color." & return & "Reason:" && gOKToColorizeend errColoron cHCdispose-- closing the stack, get rid of the Colorize stufflock screenColorizeHC "Dispose"if the result is not empty then answer the resultunlock screen -- force a screen updateend cHCdisposefunction wrongStackput the value of word 2 of the long name of me into TheStackNamereturn (TheStackName is not line 1 of the stacks)end wrongStackon modTimeglobal theMODget PlayMOD(stopMOD, true)put PlayMOD(playMODres,,theMOD) into errMsgif errMsg is not empty thenanswer errMsgend ifend modTimeon lwSetupglobal theMODput "Fusion" into theMODend lwSetupon openStackif wrongStack() then pass openStackcHCinstallhide menubarlwSetuprepeat until the lockScreen is falseunlock screenend repeatend openStackon closeStackif wrongStack() then pass closeStackcHCdisposeget PlayMOD(stopMOD, true)unlock screenend closeStackon resumeif wrongStack() then pass resumecHCinstallgo cd "logo"lock screenunlock screenend resumeon suspendif wrongStack() then pass suspendcHCdisposeget PlayMOD(stopMOD, true)end suspendon resumeStackif wrongStack() then pass resumeStackcHCinstallgo cd "logo"lock screenunlock screenend resumeStackon suspendStackif wrongStack() then pass suspendStackcHCdisposeunlock screenpass suspendStackend suspendStack-- Use the following script as a guide for your own scripts:-- on mouseUp-- put myAnimation into whichAnimation-- put "" into startID -- default 128-- put "" into endID -- default 127 + number of PICT-- put "" into xLoc -- default 0-- put "" into yLoc -- default 0-- put "" into framesPerSe -- default 60-- put "3" into times-- put "" into preLoad -- default TRUE-- playPICS whichAnimation,startID,endID,¬-- xLoc,yLoc,framesPerSec,times,preLoad-- end mouseUp-- playPICS "resource",,,-50,-50,10,5,true-- Textoid "CyberNote" ,"Cd Fld 1",RinaldoidZoom,"white,Blue"</script>
